Developer CD Series 1994 August: Tool Chest/Dev.CD Aug 94.toast/Tool Chest/Development Platforms/Macintosh Common Lisp Related/interfaces/PInterface Translator/new-traps.lisp

Text File | 1993-09-16 | 27.4 KB | 874 lines | [TEXT/CCL2]

(cl:in-package :translate*)

;
; Created: Saturday, September 16, 1989 at 3:14 PM
;     Traps.p
;     Pascal Interface to the Macintosh Libraries
;
;     Copyright Apple Computer, Inc.    1985-1990
;     All rights reserved
;

; $IFC UNDEFINED UsingIncludes
; $SETC UsingIncludes := 0
; $ENDC

; $IFC NOT UsingIncludes

; $ENDC

; $IFC UNDEFINED UsingTraps
; $SETC UsingTraps := 1

;   Controls Traps

(cl:defconstant _DisposControl #xa955)
(cl:defconstant _DragControl #xa967)
(cl:defconstant _Draw1Control #xa96d)
(cl:defconstant _DrawControls #xa969)
(cl:defconstant _FindControl #xa96c)
(cl:defconstant _GetAuxCtl #xaa44)
(cl:defconstant _GetCRefCon #xa95a)
(cl:defconstant _GetCTitle #xa95e)
(cl:defconstant _GetCtlAction #xa96a)
(cl:defconstant _GetCtlValue #xa960)
(cl:defconstant _GetCVariant #xa809)
(cl:defconstant _GetMaxCtl #xa962)
(cl:defconstant _GetMinCtl #xa961)
(cl:defconstant _GetNewControl #xa9be)
(cl:defconstant _HideControl #xa958)
(cl:defconstant _HiliteControl #xa95d)
(cl:defconstant _KillControls #xa956)
(cl:defconstant _MoveControl #xa959)
(cl:defconstant _NewControl #xa954)
(cl:defconstant _SetCRefCon #xa95b)
(cl:defconstant _SetCTitle #xa95f)
(cl:defconstant _SetCtlAction #xa96b)
(cl:defconstant _SetCtlColor #xaa43)
(cl:defconstant _SetCtlValue #xa963)
(cl:defconstant _SetMaxCtl #xa965)
(cl:defconstant _SetMinCtl #xa964)
(cl:defconstant _ShowControl #xa957)
(cl:defconstant _SizeControl #xa95c)
(cl:defconstant _TestControl #xa966)
(cl:defconstant _TrackControl #xa968)
(cl:defconstant _UpdtControl #xa953)

;   Desk Traps

(cl:defconstant _CloseDeskAcc #xa9b7)
(cl:defconstant _OpenDeskAcc #xa9b6)
(cl:defconstant _SysEdit #xa9c2)
(cl:defconstant _SystemClick #xa9b3)
(cl:defconstant _SystemEvent #xa9b2)
(cl:defconstant _SystemMenu #xa9b5)
(cl:defconstant _SystemTask #xa9b4)

;   DeskBus Traps

(cl:defconstant _ADBReInit #xa07b)

;   Dialogs Traps

(cl:defconstant _NewCDialog #xaa4b)
(cl:defconstant _Alert #xa985)
(cl:defconstant _CautionAlert #xa988)
(cl:defconstant _CloseDialog #xa982)
(cl:defconstant _CouldAlert #xa989)
(cl:defconstant _CouldDialog #xa979)
(cl:defconstant _DialogSelect #xa980)
(cl:defconstant _DisposDialog #xa983)
(cl:defconstant _DrawDialog #xa981)
(cl:defconstant _ErrorSound #xa98c)
(cl:defconstant _FindDItem #xa984)
(cl:defconstant _FreeAlert #xa98a)
(cl:defconstant _FreeDialog #xa97a)
(cl:defconstant _GetDItem #xa98d)
(cl:defconstant _GetIText #xa990)
(cl:defconstant _GetNewDialog #xa97c)
(cl:defconstant _HideDItem #xa827)
(cl:defconstant _InitDialogs #xa97b)
(cl:defconstant _IsDialogEvent #xa97f)
(cl:defconstant _ModalDialog #xa991)
(cl:defconstant _NewDialog #xa97d)
(cl:defconstant _NoteAlert #xa987)
(cl:defconstant _ParamText #xa98b)
(cl:defconstant _SelIText #xa97e)
(cl:defconstant _SetDItem #xa98e)
(cl:defconstant _SetIText #xa98f)
(cl:defconstant _ShowDItem #xa828)
(cl:defconstant _StopAlert #xa986)
(cl:defconstant _UpdtDialog #xa978)
(cl:defconstant _StdOpcodeProc #xabf8)

;   Events Traps

(cl:defconstant _Button #xa974)
(cl:defconstant _EventAvail #xa971)
(cl:defconstant _GetKeys #xa976)
(cl:defconstant _GetMouse #xa972)
(cl:defconstant _GetNextEvent #xa970)
(cl:defconstant _TickCount #xa975)
(cl:defconstant _WaitMouseUp #xa977)
(cl:defconstant _WaitNextEvent #xa860)

;   FixMath Traps

(cl:defconstant _FixATan2 #xa818)

;   Fonts Traps

(cl:defconstant _SetFractEnable #xa814)
(cl:defconstant _FMSwapFont #xa901)
(cl:defconstant _FontMetrics #xa835)
(cl:defconstant _GetFName #xa8ff)
(cl:defconstant _GetFNum #xa900)
(cl:defconstant _InitFonts #xa8fe)
(cl:defconstant _RealFont #xa902)
(cl:defconstant _SetFontLock #xa903)
(cl:defconstant _SetFScaleDisable #xa834)

;   Menus Traps

(cl:defconstant _DelMCEntries #xaa60)
(cl:defconstant _DispMCInfo #xaa63)
(cl:defconstant _GetMCEntry #xaa64)
(cl:defconstant _GetMCInfo #xaa61)
(cl:defconstant _MenuChoice #xaa66)
(cl:defconstant _SetMCEntries #xaa65)
(cl:defconstant _SetMCInfo #xaa62)
(cl:defconstant _AddResMenu #xa94d)
(cl:defconstant _AppendMenu #xa933)
(cl:defconstant _CalcMenuSize #xa948)
(cl:defconstant _CheckItem #xa945)
(cl:defconstant _ClearMenuBar #xa934)
(cl:defconstant _CountMItems #xa950)
(cl:defconstant _DeleteMenu #xa936)
(cl:defconstant _DelMenuItem #xa952)
(cl:defconstant _DisableItem #xa93a)
(cl:defconstant _DisposMenu #xa932)
(cl:defconstant _DrawMenuBar #xa937)
(cl:defconstant _InvalMenuBar #xa81d)
(cl:defconstant _EnableItem #xa939)
(cl:defconstant _FlashMenuBar #xa94c)
(cl:defconstant _GetItem #xa946)
(cl:defconstant _GetItemCmd #xa84e)
(cl:defconstant _GetItmIcon #xa93f)
(cl:defconstant _GetItmMark #xa943)
(cl:defconstant _GetMenuBar #xa93b)
(cl:defconstant _GetMHandle #xa949)
(cl:defconstant _GetNewMBar #xa9c0)
(cl:defconstant _GetRMenu #xa9bf)
(cl:defconstant _HiliteMenu #xa938)
(cl:defconstant _InitMenus #xa930)
(cl:defconstant _InitProcMenu #xa808)
(cl:defconstant _InsertMenu #xa935)
(cl:defconstant _InsertResMenu #xa951)
(cl:defconstant _InsMenuItem #xa826)
(cl:defconstant _MenuKey #xa93e)
(cl:defconstant _MenuSelect #xa93d)
(cl:defconstant _NewMenu #xa931)
(cl:defconstant _PopUpMenuSelect #xa80b)
(cl:defconstant _SetItem #xa947)
(cl:defconstant _SetItemCmd #xa84f)
(cl:defconstant _SetItmIcon #xa940)
(cl:defconstant _SetItmMark #xa944)
(cl:defconstant _SetItmStyle #xa942)
(cl:defconstant _SetMenuBar #xa93c)
(cl:defconstant _SetMFlash #xa94a)

;   OSUtils Traps

(cl:defconstant _KeyTrans #xa9c3)
(cl:defconstant _SysBeep #xa9c8)
(cl:defconstant _Unimplemented #xa89f)
(cl:defconstant _HWPriv #xa198)
(cl:defconstant _InitDogCow #xa89f)
(cl:defconstant _EnableDogCow #xa89f)
(cl:defconstant _DisableDogCow #xa89f)
(cl:defconstant _Moof #xa89f)

;   Packages Traps

(cl:defconstant _InitAllPacks #xa9e6)
(cl:defconstant _InitPack #xa9e5)

;   Quickdraw Traps

(cl:defconstant _AddComp #xaa3b)
(cl:defconstant _AddPt #xa87e)
(cl:defconstant _AddSearch #xaa3a)
(cl:defconstant _AllocCursor #xaa1d)
(cl:defconstant _BackColor #xa863)
(cl:defconstant _BackPat #xa87c)
(cl:defconstant _BackPixPat #xaa0b)
(cl:defconstant _CalcMask #xa838)
(cl:defconstant _CharExtra #xaa23)
(cl:defconstant _CharWidth #xa88d)
(cl:defconstant _ClipRect #xa87b)
(cl:defconstant _CloseCport #xa87d)
(cl:defconstant _ClosePgon #xa8cc)
(cl:defconstant _ClosePicture #xa8f4)
(cl:defconstant _ClosePort #xa87d)
(cl:defconstant _CloseRgn #xa8db)
(cl:defconstant _Color2Index #xaa33)
(cl:defconstant _ColorBit #xa864)
(cl:defconstant _CopyBits #xa8ec)
(cl:defconstant _CopyMask #xa817)
(cl:defconstant _CopyPixMap #xaa05)
(cl:defconstant _CopyPixPat #xaa09)
(cl:defconstant _CopyRgn #xa8dc)
(cl:defconstant _DelComp #xaa4d)
(cl:defconstant _DelSearch #xaa4c)
(cl:defconstant _DiffRgn #xa8e6)
(cl:defconstant _DisposCCursor #xaa26)
(cl:defconstant _DisposCIcon #xaa25)
(cl:defconstant _DisposCTable #xaa24)
(cl:defconstant _DisposGDevice #xaa30)
(cl:defconstant _DisposPixMap #xaa04)
(cl:defconstant _DisposPixPat #xaa08)
(cl:defconstant _DisposRgn #xa8d9)
(cl:defconstant _DrawChar #xa883)
(cl:defconstant _DrawPicture #xa8f6)
(cl:defconstant _DrawString #xa884)
(cl:defconstant _DrawText #xa885)
(cl:defconstant _EmptyRect #xa8ae)
(cl:defconstant _EmptyRgn #xa8e2)
(cl:defconstant _EqualPt #xa881)
(cl:defconstant _EqualRect #xa8a6)
(cl:defconstant _EqualRgn #xa8e3)
(cl:defconstant _EraseArc #xa8c0)
(cl:defconstant _EraseOval #xa8b9)
(cl:defconstant _ErasePoly #xa8c8)
(cl:defconstant _EraseRect #xa8a3)
(cl:defconstant _EraseRgn #xa8d4)
(cl:defconstant _EraseRoundRect #xa8b2)
(cl:defconstant _FillArc #xa8c2)
(cl:defconstant _FillCArc #xaa11)
(cl:defconstant _FillCOval #xaa0f)
(cl:defconstant _FillCPoly #xaa13)
(cl:defconstant _FillCRect #xaa0e)
(cl:defconstant _FillCRgn #xaa12)
(cl:defconstant _FillCRoundRect #xaa10)
(cl:defconstant _FillOval #xa8bb)
(cl:defconstant _FillPoly #xa8ca)
(cl:defconstant _FillRect #xa8a5)
(cl:defconstant _FillRgn #xa8d6)
(cl:defconstant _BitMapToRegion #xa8d7)
(cl:defconstant _FillRoundRect #xa8b4)
(cl:defconstant _ForeColor #xa862)
(cl:defconstant _FrameArc #xa8be)
(cl:defconstant _FrameOval #xa8b7)
(cl:defconstant _FramePoly #xa8c6)
(cl:defconstant _FrameRect #xa8a1)
(cl:defconstant _FrameRgn #xa8d2)
(cl:defconstant _FrameRoundRect #xa8b0)
(cl:defconstant _GetBackColor #xaa1a)
(cl:defconstant _GetCCursor #xaa1b)
(cl:defconstant _GetCIcon #xaa1e)
(cl:defconstant _GetClip #xa87a)
(cl:defconstant _GetCPixel #xaa17)
(cl:defconstant _GetCTable #xaa18)
(cl:defconstant _GetCTSeed #xaa28)
(cl:defconstant _GetDeviceList #xaa29)
(cl:defconstant _GetFontInfo #xa88b)
(cl:defconstant _GetForeColor #xaa19)
(cl:defconstant _GetGDevice #xaa32)
(cl:defconstant _GetMainDevice #xaa2a)
(cl:defconstant _GetMaxDevice #xaa27)
(cl:defconstant _GetNextDevice #xaa2b)
(cl:defconstant _GetPen #xa89a)
(cl:defconstant _GetPenState #xa898)
(cl:defconstant _GetPixel #xa865)
(cl:defconstant _GetPixPat #xaa0c)
(cl:defconstant _GetPort #xa874)
(cl:defconstant _GetSubTable #xaa37)
(cl:defconstant _GlobalToLocal #xa871)
(cl:defconstant _GrafDevice #xa872)
(cl:defconstant _HideCursor #xa852)
(cl:defconstant _HidePen #xa896)
(cl:defconstant _HiliteColor #xaa22)
(cl:defconstant _Index2Color #xaa34)
(cl:defconstant _InitCport #xaa01)
(cl:defconstant _InitCursor #xa850)
(cl:defconstant _InitGDevice #xaa2e)
(cl:defconstant _InitGraf #xa86e)
(cl:defconstant _InitPort #xa86d)
(cl:defconstant _InSetRect #xa8a9)
(cl:defconstant _InSetRgn #xa8e1)
(cl:defconstant _InverRect #xa8a4)
(cl:defconstant _InverRgn #xa8d5)
(cl:defconstant _InverRoundRect #xa8b3)
(cl:defconstant _InvertArc #xa8c1)
(cl:defconstant _InvertColor #xaa35)
(cl:defconstant _InvertOval #xa8ba)
(cl:defconstant _InvertPoly #xa8c9)
(cl:defconstant _KillPicture #xa8f5)
(cl:defconstant _KillPoly #xa8cd)
(cl:defconstant _Line #xa892)
(cl:defconstant _LineTo #xa891)
(cl:defconstant _LocalToGlobal #xa870)
(cl:defconstant _MakeITable #xaa39)
(cl:defconstant _MakeRGBPat #xaa0d)
(cl:defconstant _MapPoly #xa8fc)
(cl:defconstant _MapPt #xa8f9)
(cl:defconstant _MapRect #xa8fa)
(cl:defconstant _MapRgn #xa8fb)
(cl:defconstant _MeasureText #xa837)
(cl:defconstant _Move #xa894)
(cl:defconstant _MovePortTo #xa877)
(cl:defconstant _MoveTo #xa893)
(cl:defconstant _NewGDevice #xaa2f)
(cl:defconstant _NewPixMap #xaa03)
(cl:defconstant _NewPixPat #xaa07)
(cl:defconstant _NewRgn #xa8d8)
(cl:defconstant _ObscureCursor #xa856)
(cl:defconstant _OffSetPoly #xa8ce)
(cl:defconstant _OffSetRect #xa8a8)
(cl:defconstant _OfSetRgn #xa8e0)
(cl:defconstant _OpColor #xaa21)
(cl:defconstant _OpenCport #xaa00)
(cl:defconstant _OpenPicture #xa8f3)
(cl:defconstant _OpenPoly #xa8cb)
(cl:defconstant _OpenPort #xa86f)
(cl:defconstant _OpenRgn #xa8da)
(cl:defconstant _PaintArc #xa8bf)
(cl:defconstant _PaintOval #xa8b8)
(cl:defconstant _PaintPoly #xa8c7)
(cl:defconstant _PaintRect #xa8a2)
(cl:defconstant _PaintRgn #xa8d3)
(cl:defconstant _PaintRoundRect #xa8b1)
(cl:defconstant _PenMode #xa89c)
(cl:defconstant _PenNormal #xa89e)
(cl:defconstant _PenPat #xa89d)
(cl:defconstant _PenPixPat #xaa0a)
(cl:defconstant _PenSize #xa89b)
(cl:defconstant _PicComment #xa8f2)
(cl:defconstant _PlotCIcon #xaa1f)
(cl:defconstant _PortSize #xa876)
(cl:defconstant _ProtectEntry #xaa3d)
(cl:defconstant _Pt2Rect #xa8ac)
(cl:defconstant _PtInRect #xa8ad)
(cl:defconstant _PtInRgn #xa8e8)
(cl:defconstant _PtToAngle #xa8c3)
(cl:defconstant _QDError #xaa40)
(cl:defconstant _Random #xa861)
(cl:defconstant _RealColor #xaa36)
(cl:defconstant _RectInRgn #xa8e9)
(cl:defconstant _RectRgn #xa8df)
(cl:defconstant _ReserveEntry #xaa3e)
(cl:defconstant _RestoreEntries #xaa4a)
(cl:defconstant _RGBBackColor #xaa15)
(cl:defconstant _RGBForeColor #xaa14)
(cl:defconstant _SaveEntries #xaa49)
(cl:defconstant _ScalePt #xa8f8)
(cl:defconstant _ScrollRect #xa8ef)
(cl:defconstant _SectRect #xa8aa)
(cl:defconstant _SectRgn #xa8e4)
(cl:defconstant _SeedCFill #xaa50)
(cl:defconstant _SeedFill #xa839)
(cl:defconstant _SetCCursor #xaa1c)
(cl:defconstant _SetClientID #xaa3c)
(cl:defconstant _SetClip #xa879)
(cl:defconstant _SetCPixel #xaa16)
(cl:defconstant _SetPortPix #xaa06)
(cl:defconstant _SetCursor #xa851)
(cl:defconstant _SetDeviceAttribute #xaa2d)
(cl:defconstant _SetEmptyRgn #xa8dd)
(cl:defconstant _SetEntries #xaa3f)
(cl:defconstant _SetGDevice #xaa31)
(cl:defconstant _SetOrigin #xa878)
(cl:defconstant _SetPBits #xa875)
(cl:defconstant _SetPenState #xa899)
(cl:defconstant _SetPort #xa873)
(cl:defconstant _SetPt #xa880)
(cl:defconstant _SetRecRgn #xa8de)
(cl:defconstant _SetRect #xa8a7)
(cl:defconstant _SetStdCProcs #xaa4e)
(cl:defconstant _SetStdProcs #xa8ea)
(cl:defconstant _ShowCursor #xa853)
(cl:defconstant _ShowPen #xa897)
(cl:defconstant _SpaceExtra #xa88e)
(cl:defconstant _StdArc #xa8bd)
(cl:defconstant _StdBits #xa8eb)
(cl:defconstant _StdComment #xa8f1)
(cl:defconstant _StdGetPic #xa8ee)
(cl:defconstant _StdLine #xa890)
(cl:defconstant _StdOval #xa8b6)
(cl:defconstant _StdPoly #xa8c5)
(cl:defconstant _StdPutPic #xa8f0)
(cl:defconstant _StdRect #xa8a0)
(cl:defconstant _StdRgn #xa8d1)
(cl:defconstant _StdRRect #xa8af)
(cl:defconstant _StdText #xa882)
(cl:defconstant _StdTxMeas #xa8ed)
(cl:defconstant _StringWidth #xa88c)
(cl:defconstant _StuffHex #xa866)
(cl:defconstant _SubPt #xa87f)
(cl:defconstant _TestDeviceAttribute #xaa2c)
(cl:defconstant _TextFace #xa888)
(cl:defconstant _TextFont #xa887)
(cl:defconstant _TextMode #xa889)
(cl:defconstant _TextSize #xa88a)
(cl:defconstant _TextWidth #xa886)
(cl:defconstant _UnionRect #xa8ab)
(cl:defconstant _UnionRgn #xa8e5)
(cl:defconstant _XOrRgn #xa8e7)
(cl:defconstant _CalcCMask #xaa4f)
(cl:defconstant _GetMaskTable #xa836)
(cl:defconstant _UpdatePixMap #xaa38)

;   Resources Traps

(cl:defconstant _AddResource #xa9ab)
(cl:defconstant _ChangedResource #xa9aa)
(cl:defconstant _CloseResFile #xa99a)
(cl:defconstant _Count1Resources #xa80d)
(cl:defconstant _Count1Types #xa81c)
(cl:defconstant _CountResources #xa99c)
(cl:defconstant _CountTypes #xa99e)
(cl:defconstant _CreateResFile #xa9b1)
(cl:defconstant _CurResFile #xa994)
(cl:defconstant _DetachResource #xa992)
(cl:defconstant _Get1IxResource #xa80e)
(cl:defconstant _Get1IxType #xa80f)
(cl:defconstant _Get1NamedResource #xa820)
(cl:defconstant _Get1Resource #xa81f)
(cl:defconstant _GetIndResource #xa99d)
(cl:defconstant _GetIndType #xa99f)
(cl:defconstant _GetNamedResource #xa9a1)
(cl:defconstant _GetResAttrs #xa9a6)
(cl:defconstant _GetResFileAttrs #xa9f6)
(cl:defconstant _GetResInfo #xa9a8)
(cl:defconstant _GetResource #xa9a0)
(cl:defconstant _HCreateResFile #xa81b)
(cl:defconstant _HOpenResFile #xa81a)
(cl:defconstant _HomeResFile #xa9a4)
(cl:defconstant _InitResources #xa995)
(cl:defconstant _LoadResource #xa9a2)
(cl:defconstant _MaxSizeRsrc #xa821)
(cl:defconstant _OpenResFile #xa997)
(cl:defconstant _OpenRFPerm #xa9c4)
(cl:defconstant _ReleaseResource #xa9a3)
(cl:defconstant _ResError #xa9af)
(cl:defconstant _RGetResource #xa80c)
(cl:defconstant _RmveResource #xa9ad)
(cl:defconstant _RsrcMapEntry #xa9c5)
(cl:defconstant _RsrcZoneInit #xa996)
(cl:defconstant _SetResAttrs #xa9a7)
(cl:defconstant _SetResFileAttrs #xa9f7)
(cl:defconstant _SetResInfo #xa9a9)
(cl:defconstant _SetResLoad #xa99b)
(cl:defconstant _SetResPurge #xa993)
(cl:defconstant _SizeRsrc #xa9a5)
(cl:defconstant _Unique1ID #xa810)
(cl:defconstant _UniqueID #xa9c1)
(cl:defconstant _UpdateResFile #xa999)
(cl:defconstant _UseResFile #xa998)
(cl:defconstant _WriteResource #xa9b0)
(cl:defconstant _Pack8 #xa816)
(cl:defconstant _Pack9 #xa82b)
(cl:defconstant _Pack10 #xa82c)
(cl:defconstant _Pack11 #xa82d)
(cl:defconstant _Pack12 #xa82e)
(cl:defconstant _Pack13 #xa82f)
(cl:defconstant _Pack14 #xa830)
(cl:defconstant _Pack15 #xa831)
(cl:defconstant _ScrnBitMap #xa833)
(cl:defconstant _DragTheRgn #xa926)
(cl:defconstant _GetItmStyle #xa941)
(cl:defconstant _PlotIcon #xa94b)
(cl:defconstant _Dequeue #xa96e)
(cl:defconstant _Enqueue #xa96f)
(cl:defconstant _StillDown #xa973)
(cl:defconstant _AddReference #xa9ac)
(cl:defconstant _RmveReference #xa9ae)
(cl:defconstant _Secs2Date #xa9c6)
(cl:defconstant _Date2Secs #xa9c7)
(cl:defconstant _SysError #xa9c9)
(cl:defconstant _HandToHand #xa9e1)
(cl:defconstant _PtrToXHand #xa9e2)
(cl:defconstant _PtrToHand #xa9e3)
(cl:defconstant _HandAndHand #xa9e4)
(cl:defconstant _Pack0 #xa9e7)
(cl:defconstant _Pack1 #xa9e8)
(cl:defconstant _Pack2 #xa9e9)
(cl:defconstant _Pack3 #xa9ea)
(cl:defconstant _FP68K #xa9eb)
(cl:defconstant _Pack4 #xa9eb)
(cl:defconstant _Elems68K #xa9ec)
(cl:defconstant _Pack5 #xa9ec)
(cl:defconstant _Pack6 #xa9ed)
(cl:defconstant _DECSTR68K #xa9ee)
(cl:defconstant _Pack7 #xa9ee)
(cl:defconstant _PtrAndHand #xa9ef)
(cl:defconstant _LoadSeg #xa9f0)
(cl:defconstant _Launch #xa9f2)
(cl:defconstant _Chain #xa9f3)
(cl:defconstant _MethodDispatch #xa9f8)
(cl:defconstant _Debugger #xa9ff)
(cl:defconstant _DebugStr #xabff)

;   Scrap Traps

(cl:defconstant _GetScrap #xa9fd)
(cl:defconstant _InfoScrap #xa9f9)
(cl:defconstant _LodeScrap #xa9fb)
(cl:defconstant _LoadScrap #xa9fb)
(cl:defconstant _PutScrap #xa9fe)
(cl:defconstant _UnlodeScrap #xa9fa)
(cl:defconstant _UnloadScrap #xa9fa)
(cl:defconstant _ZeroScrap #xa9fc)

;   SegLoad Traps

(cl:defconstant _ExitToShell #xa9f4)
(cl:defconstant _GetAppParms #xa9f5)
(cl:defconstant _UnLoadSeg #xa9f1)

;   ShutDown Traps

(cl:defconstant _ShutDown #xa895)

;   TextEdit Traps

(cl:defconstant _TEActivate #xa9d8)
(cl:defconstant _TEAutoView #xa813)
(cl:defconstant _TECalText #xa9d0)
(cl:defconstant _TEClick #xa9d4)
(cl:defconstant _TECopy #xa9d5)
(cl:defconstant _TECut #xa9d6)
(cl:defconstant _TEDeactivate #xa9d9)
(cl:defconstant _TEDelete #xa9d7)
(cl:defconstant _TEDispose #xa9cd)
(cl:defconstant _TEGetOffset #xa83c)
(cl:defconstant _TEGetText #xa9cb)
(cl:defconstant _TEIdle #xa9da)
(cl:defconstant _TEInit #xa9cc)
(cl:defconstant _TEInsert #xa9de)
(cl:defconstant _TEKey #xa9dc)
(cl:defconstant _TENew #xa9d2)
(cl:defconstant _TEPaste #xa9db)
(cl:defconstant _TEPinScroll #xa812)
(cl:defconstant _TEScroll #xa9dd)
(cl:defconstant _TESelView #xa811)
(cl:defconstant _TESetJust #xa9df)
(cl:defconstant _TESetSelect #xa9d1)
(cl:defconstant _TESetText #xa9cf)
(cl:defconstant _TEStyleNew #xa83e)
(cl:defconstant _TEUpdate #xa9d3)
(cl:defconstant _TextBox #xa9ce)

;   ToolUtils Traps

(cl:defconstant _UnpackBits #xa8d0)
(cl:defconstant _AngleFromSlope #xa8c4)
(cl:defconstant _BitAnd #xa858)
(cl:defconstant _BitClr #xa85f)
(cl:defconstant _BitNot #xa85a)
(cl:defconstant _BitOr #xa85b)
(cl:defconstant _BitSet #xa85e)
(cl:defconstant _BitShift #xa85c)
(cl:defconstant _BitTst #xa85d)
(cl:defconstant _BitXOr #xa859)
(cl:defconstant _DeltaPoint #xa94f)
(cl:defconstant _FixMul #xa868)
(cl:defconstant _FixRatio #xa869)
(cl:defconstant _FixRound #xa86c)
(cl:defconstant _GetCursor #xa9b9)
(cl:defconstant _GetIcon #xa9bb)
(cl:defconstant _GetPattern #xa9b8)
(cl:defconstant _GetPicture #xa9bc)
(cl:defconstant _GetString #xa9ba)
(cl:defconstant _HiWord #xa86a)
(cl:defconstant _LongMul #xa867)
(cl:defconstant _LoWord #xa86b)
(cl:defconstant _Munger #xa9e0)
(cl:defconstant _NewString #xa906)
(cl:defconstant _PackBits #xa8cf)
(cl:defconstant _SetString #xa907)
(cl:defconstant _ShieldCursor #xa855)
(cl:defconstant _SlopeFromAngle #xa8bc)
(cl:defconstant _XMunger #xa819)
(cl:defconstant _WriteParam #xa038)
(cl:defconstant _Open #xa000)
;
;  _______________________________________________________________________
;
;   Core routine system TRAPS
;
;  _______________________________________________________________________
;
;
;   First we have the I/O core routines. These are also used by
;   the file system.
;
;
(cl:defconstant _Close #xa001)
(cl:defconstant _Read #xa002)
(cl:defconstant _Write #xa003)
(cl:defconstant _Control #xa004)
(cl:defconstant _Status #xa005)
(cl:defconstant _KillIO #xa006)
(cl:defconstant _GetVolInfo #xa007)
; other file system calls go here
;
(cl:defconstant _Create #xa008)
(cl:defconstant _Delete #xa009)
(cl:defconstant _OpenRF #xa00a)
(cl:defconstant _ReName #xa00b)
(cl:defconstant _GetFileInfo #xa00c)
(cl:defconstant _SetFileInfo #xa00d)
(cl:defconstant _UnMountVol #xa00e)
(cl:defconstant _MountVol #xa00f)
(cl:defconstant _Allocate #xa010)
(cl:defconstant _GetEOF #xa011)
(cl:defconstant _SetEOF #xa012)
(cl:defconstant _FlushVol #xa013)
(cl:defconstant _GetVol #xa014)
(cl:defconstant _SetVol #xa015)
(cl:defconstant _FInitQueue #xa016)
(cl:defconstant _Eject #xa017)
(cl:defconstant _GetFPos #xa018)
(cl:defconstant _HSetVol #xa215)
(cl:defconstant _HGetVol #xa214)
(cl:defconstant _HOpen #xa200)
(cl:defconstant _HGetVInfo #xa207)
(cl:defconstant _HCreate #xa208)
(cl:defconstant _HDelete #xa209)
(cl:defconstant _HOpenRF #xa20a)
(cl:defconstant _HRename #xa20b)
(cl:defconstant _HGetFileInfo #xa20c)
(cl:defconstant _HSetFileInfo #xa20d)
(cl:defconstant _AllocContig #xa210)
(cl:defconstant _HSetFLock #xa241)
(cl:defconstant _HRstFLock #xa242)
(cl:defconstant _InitZone #xa019)
;  end of HFS additions
;
;   Here are the memory manager core routines
;
(cl:defconstant _GetZone #xa11a)
(cl:defconstant _SetZone #xa01b)
(cl:defconstant _FreeMem #xa01c)
(cl:defconstant _MaxMem #xa11d)
(cl:defconstant _NewPtr #xa11e)
(cl:defconstant _DisposPtr #xa01f)
(cl:defconstant _SetPtrSize #xa020)
(cl:defconstant _GetPtrSize #xa021)
(cl:defconstant _NewHandle #xa122)
(cl:defconstant _DisposHandle #xa023)
(cl:defconstant _SetHandleSize #xa024)
(cl:defconstant _GetHandleSize #xa025)
(cl:defconstant _HandleZone #xa126)
(cl:defconstant _ReAllocHandle #xa027)
(cl:defconstant _RecoverHandle #xa128)
(cl:defconstant _HLock #xa029)
(cl:defconstant _HUnlock #xa02a)
(cl:defconstant _EmptyHandle #xa02b)
(cl:defconstant _InitApplZone #xa02c)
(cl:defconstant _SetApplLimit #xa02d)
(cl:defconstant _BlockMove #xa02e)
(cl:defconstant _PostEvent #xa02f)
;     Here are the event manager routines
;
(cl:defconstant _PPostEvent #xa12f)
(cl:defconstant _OSEventAvail #xa030)
(cl:defconstant _GetOSEvent #xa031)
(cl:defconstant _FlushEvents #xa032)
(cl:defconstant _VInstall #xa033)
;     Here are the utility core routines
;
(cl:defconstant _VRemove #xa034)
(cl:defconstant _OffLine #xa035)
(cl:defconstant _MoreMasters #xa036)
(cl:defconstant _ReadDateTime #xa039)
(cl:defconstant _SetDateTime #xa03a)
(cl:defconstant _Delay #xa03b)
(cl:defconstant _CmpString #xa03c)
(cl:defconstant _DrvrInstall #xa03d)
(cl:defconstant _DrvrRemove #xa03e)
(cl:defconstant _InitUtil #xa03f)
(cl:defconstant _ResrvMem #xa040)
(cl:defconstant _SetFilLock #xa041)
(cl:defconstant _RstFilLock #xa042)
(cl:defconstant _SetFilType #xa043)
(cl:defconstant _SetFPos #xa044)
(cl:defconstant _FlushFile #xa045)
(cl:defconstant _GetTrapAddress #xa146)
(cl:defconstant _SetTrapAddress #xa047)
(cl:defconstant _PtrZone #xa148)
(cl:defconstant _HPurge #xa049)
(cl:defconstant _HNoPurge #xa04a)
(cl:defconstant _SetGrowZone #xa04b)
(cl:defconstant _CompactMem #xa04c)
(cl:defconstant _PurgeMem #xa04d)
(cl:defconstant _AddDrive #xa04e)
(cl:defconstant _RDrvrInstall #xa04f)
(cl:defconstant _UprString #xa054)
(cl:defconstant _LwrString #xa056)
(cl:defconstant _SetApplBase #xa057)
(cl:defconstant _OSDispatch #xa88f)
(cl:defconstant _RelString #xa050)
;  new 128K ROM additions
;
(cl:defconstant _ReadXPRam #xa051)
(cl:defconstant _InsTime #xa058)
(cl:defconstant _RmvTime #xa059)
(cl:defconstant _PrimeTime #xa05a)
(cl:defconstant _MaxBlock #xa061)
(cl:defconstant _PurgeSpace #xa162)
(cl:defconstant _MaxApplZone #xa063)
(cl:defconstant _MoveHHi #xa064)
(cl:defconstant _StackSpace #xa065)
(cl:defconstant _NewEmptyHandle #xa166)
(cl:defconstant _HSetRBit #xa067)
(cl:defconstant _HClrRBit #xa068)
(cl:defconstant _HGetState #xa069)
(cl:defconstant _HSetState #xa06a)
(cl:defconstant _InitFS #xa06c)
(cl:defconstant _InitEvents #xa06d)
(cl:defconstant _StripAddress #xa055)
;  end of System Traps
;
;   new 256K ROM Traps
;
(cl:defconstant _SetAppBase #xa057)
(cl:defconstant _SwapMMUMode #xa05d)
(cl:defconstant _SlotVInstall #xa06f)
(cl:defconstant _SlotVRemove #xa070)
(cl:defconstant _AttachVBL #xa071)
(cl:defconstant _DoVBLTask #xa072)
(cl:defconstant _SIntInstall #xa075)
(cl:defconstant _SIntRemove #xa076)
(cl:defconstant _CountADBs #xa077)
(cl:defconstant _GetIndADB #xa078)
(cl:defconstant _GetADBInfo #xa079)
(cl:defconstant _SetADBInfo #xa07a)
(cl:defconstant _ADBOp #xa07c)
(cl:defconstant _GetDefaultStartup #xa07d)
(cl:defconstant _SetDefaultStartup #xa07e)
(cl:defconstant _InternalWait #xa07f)
(cl:defconstant _GetVideoDefault #xa080)
(cl:defconstant _SetVideoDefault #xa081)
(cl:defconstant _DTInstall #xa082)
(cl:defconstant _SetOSDefault #xa083)
(cl:defconstant _GetOSDefault #xa084)
(cl:defconstant _Sleep #xa08a)
(cl:defconstant _CommToolboxDispatch #xa08b)
(cl:defconstant _SysEnvirons #xa090)
(cl:defconstant _InitPalettes #xaa90)
;     Palette Manager Traps, transplanted from PaletteEqu.a
;
(cl:defconstant _NewPalette #xaa91)
(cl:defconstant _GetNewPalette #xaa92)
(cl:defconstant _DisposePalette #xaa93)
(cl:defconstant _ActivatePalette #xaa94)
(cl:defconstant _SetPalette #xaa95)
(cl:defconstant _NSetPalette #xaa95)
(cl:defconstant _GetPalette #xaa96)
(cl:defconstant _PmForeColor #xaa97)
(cl:defconstant _PmBackColor #xaa98)
(cl:defconstant _AnimateEntry #xaa99)
(cl:defconstant _AnimatePalette #xaa9a)
(cl:defconstant _GetEntryColor #xaa9b)
(cl:defconstant _SetEntryColor #xaa9c)
(cl:defconstant _GetEntryUsage #xaa9d)
(cl:defconstant _SetEntryUsage #xaa9e)
(cl:defconstant _CTab2Palette #xaa9f)
(cl:defconstant _Palette2CTab #xaaa0)
(cl:defconstant _CopyPalette #xaaa1)
(cl:defconstant _PMgrOp #xa085)
(cl:defconstant _HUnmountVol #xa20e)

;   Windows Traps

(cl:defconstant _BeginUpDate #xa922)
(cl:defconstant _BringToFront #xa920)
(cl:defconstant _CalcVBehind #xa90a)
(cl:defconstant _CalcVis #xa909)
(cl:defconstant _CheckUpDate #xa911)
(cl:defconstant _ClipAbove #xa90b)
(cl:defconstant _CloseWindow #xa92d)
(cl:defconstant _DisposWindow #xa914)
(cl:defconstant _DragGrayRgn #xa905)
(cl:defconstant _DragWindow #xa925)
(cl:defconstant _DrawGrowIcon #xa904)
(cl:defconstant _DrawNew #xa90f)
(cl:defconstant _EndUpDate #xa923)
(cl:defconstant _FindWindow #xa92c)
(cl:defconstant _FrontWindow #xa924)
(cl:defconstant _GetAuxWin #xaa42)
(cl:defconstant _GetCWMgrPort #xaa48)
(cl:defconstant _GetNewCWindow #xaa46)
(cl:defconstant _GetNewWindow #xa9bd)
(cl:defconstant _GetWindowPic #xa92f)
(cl:defconstant _GetWMgrPort #xa910)
(cl:defconstant _GetWRefCon #xa917)
(cl:defconstant _GetWTitle #xa919)
(cl:defconstant _GetWVariant #xa80a)
(cl:defconstant _GrowWindow #xa92b)
(cl:defconstant _HideWindow #xa916)
(cl:defconstant _HiliteWindow #xa91c)
(cl:defconstant _InitWindows #xa912)
(cl:defconstant _InvalRect #xa928)
(cl:defconstant _InvalRgn #xa927)
(cl:defconstant _MoveWindow #xa91b)
(cl:defconstant _NewCWindow #xaa45)
(cl:defconstant _NewWindow #xa913)
(cl:defconstant _PaintBehind #xa90d)
(cl:defconstant _PaintOne #xa90c)
(cl:defconstant _PinRect #xa94e)
(cl:defconstant _SaveOld #xa90e)
(cl:defconstant _SelectWindow #xa91f)
(cl:defconstant _SendBehind #xa921)
(cl:defconstant _SetDeskCPat #xaa47)
(cl:defconstant _SetWinColor #xaa41)
(cl:defconstant _SetWindowPic #xa92e)
(cl:defconstant _SetWRefCon #xa918)
(cl:defconstant _SetWTitle #xa91a)
(cl:defconstant _ShowHide #xa908)
(cl:defconstant _ShowWindow #xa915)
(cl:defconstant _SizeWindow #xa91d)
(cl:defconstant _TrackBox #xa83b)
(cl:defconstant _TrackGoAway #xa91e)
(cl:defconstant _ValidRect #xa92a)
(cl:defconstant _ValidRgn #xa929)
(cl:defconstant _ZoomWindow #xa83a)
(cl:defconstant _PutIcon #xa9ca)

;   Notification Traps

(cl:defconstant _NMInstall #xa05e)
(cl:defconstant _NMRemove #xa05f)

;   SCSI Traps

(cl:defconstant _SCSIDispatch #xa815)

;   Script Traps

(cl:defconstant _ScriptUtil #xa8b5)

;   Slots Traps

(cl:defconstant _SlotManager #xa06e)

;   Sound Traps

(cl:defconstant _SndDoCommand #xa803)
(cl:defconstant _SndDoImmediate #xa804)
(cl:defconstant _SndAddModifier #xa802)
(cl:defconstant _SndNewChannel #xa807)
(cl:defconstant _SndDisposeChannel #xa801)
(cl:defconstant _SndControl #xa806)
(cl:defconstant _SndPlay #xa805)

; $ENDC                         ;  UsingTraps

; $IFC NOT UsingIncludes

; $ENDC


(ccl::provide 'TRAPS)